/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Info / For Developers / Mops 3.4.sea / Mops source / Extras / Struct1

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 53 74 72 75 63 74 | 31 00 00 00 00 00 00 00 |..Struct|1.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 07 d4 00 | 00 01 7d b1 e2 59 6c b1 |........|..}..Yl.|
|00000060| e2 59 6c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Yl.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b1 af 00 00 |........|........|
|00000080| 5c 20 41 64 64 69 74 69 | 6f 6e 61 6c 20 64 61 74 |\ Additi|onal dat|
|00000090| 61 20 73 74 72 75 63 74 | 75 72 65 73 2e 0d 0d 5c |a struct|ures...\|
|000000a0| 20 4a 75 6e 65 20 39 31 | 20 20 6d 72 68 09 4d 6f | June 91|  mrh.Mo|
|000000b0| 70 73 20 76 65 72 73 69 | 6f 6e 2e 0d 5c 20 44 65 |ps versi|on..\ De|
|000000c0| 63 20 39 36 20 20 20 6d | 72 68 20 20 46 69 78 65 |c 96   m|rh  Fixe|
|000000d0| 64 20 46 49 4c 4c 3a 20 | 69 6e 20 62 41 72 72 61 |d FILL: |in bArra|
|000000e0| 79 0d 0d 0d 3a 63 6c 61 | 73 73 09 57 41 52 52 41 |y...:cla|ss.WARRA|
|000000f0| 59 20 20 73 75 70 65 72 | 7b 20 69 6e 64 65 78 65 |Y  super|{ indexe|
|00000100| 64 2d 6f 62 6a 20 7d 20 | 20 32 20 69 6e 64 65 78 |d-obj } | 2 index|
|00000110| 65 64 0d 0d 3a 6d 20 5e | 45 4c 45 4d 3a 09 5c 20 |ed..:m ^|ELEM:.\ |
|00000120| 28 20 69 6e 64 65 78 20 | 2d 2d 20 61 64 64 72 20 |( index |-- addr |
|00000130| 29 0d 09 69 6e 6c 69 6e | 65 7b 20 5e 65 6c 65 6d |)..inlin|e{ ^elem|
|00000140| 20 77 40 7d 20 20 3b 6d | 0d 0d 3a 6d 20 41 54 3a | w@}  ;m|..:m AT:|
|00000150| 09 09 5c 20 28 20 69 6e | 64 65 78 20 2d 2d 20 6e |..\ ( in|dex -- n|
|00000160| 20 29 0d 09 69 6e 6c 69 | 6e 65 7b 20 5e 65 6c 65 | )..inli|ne{ ^ele|
|00000170| 6d 20 77 40 78 7d 20 20 | 3b 6d 0d 0d 3a 6d 20 54 |m w@x}  |;m..:m T|
|00000180| 4f 3a 09 09 5c 20 28 20 | 6e 20 69 6e 64 65 78 20 |O:..\ ( |n index |
|00000190| 2d 2d 20 29 0d 09 69 6e | 6c 69 6e 65 7b 20 5e 65 |-- )..in|line{ ^e|
|000001a0| 6c 65 6d 20 77 21 7d 20 | 20 3b 6d 0d 0d 3a 6d 20 |lem w!} | ;m..:m |
|000001b0| 2b 54 4f 3a 09 09 5c 20 | 28 20 6e 20 69 6e 64 65 |+TO:..\ |( n inde|
|000001c0| 78 20 2d 2d 20 29 0d 09 | 69 6e 6c 69 6e 65 7b 20 |x -- )..|inline{ |
|000001d0| 5e 65 6c 65 6d 20 77 2b | 21 7d 20 20 3b 6d 0d 0d |^elem w+|!}  ;m..|
|000001e0| 3a 6d 20 2d 54 4f 3a 09 | 09 5c 20 28 20 6e 20 69 |:m -TO:.|.\ ( n i|
|000001f0| 6e 64 65 78 20 2d 2d 20 | 29 0d 09 69 6e 6c 69 6e |ndex -- |)..inlin|
|00000200| 65 7b 20 5e 65 6c 65 6d | 20 77 2d 21 7d 20 20 3b |e{ ^elem| w-!}  ;|
|00000210| 6d 0d 0d 0d 3a 6d 20 46 | 49 4c 4c 3a 09 5c 20 28 |m...:m F|ILL:.\ (|
|00000220| 20 76 61 6c 75 65 20 2d | 2d 20 29 20 20 46 69 6c | value -|- )  Fil|
|00000230| 6c 73 20 61 6c 6c 20 65 | 6c 65 6d 65 6e 74 73 20 |ls all e|lements |
|00000240| 77 69 74 68 20 76 61 6c | 75 65 2e 0d 09 69 64 78 |with val|ue...idx|
|00000250| 62 61 73 65 20 20 6c 69 | 6d 69 74 20 32 2a 20 20 |base  li|mit 2*  |
|00000260| 62 6f 75 6e 64 73 0d 09 | 3f 44 4f 20 20 64 75 70 |bounds..|?DO  dup|
|00000270| 20 20 69 20 77 21 20 20 | 32 20 2b 4c 4f 4f 50 20 |  i w!  |2 +LOOP |
|00000280| 20 64 72 6f 70 20 20 3b | 6d 0d 0d 0d 3a 6d 20 57 | drop  ;|m...:m W|
|00000290| 49 44 54 48 3a 09 32 20 | 20 3b 6d 09 09 5c 20 46 |IDTH:.2 | ;m..\ F|
|000002a0| 61 73 74 65 72 20 74 68 | 61 6e 20 74 68 65 20 64 |aster th|an the d|
|000002b0| 65 66 61 75 6c 74 20 69 | 6e 20 49 6e 64 65 78 65 |efault i|n Indexe|
|000002c0| 64 2d 6f 62 6a 2e 0d 0d | 3a 6d 20 47 45 54 45 4c |d-obj...|:m GETEL|
|000002d0| 45 4d 3a 09 5c 20 28 20 | 61 64 64 72 20 2d 2d 20 |EM:.\ ( |addr -- |
|000002e0| 6e 20 29 20 20 46 65 74 | 63 68 65 73 20 6f 6e 65 |n )  Fet|ches one|
|000002f0| 20 65 6c 65 6d 65 6e 74 | 20 61 74 20 61 64 64 72 | element| at addr|
|00000300| 20 2d 20 73 61 76 65 73 | 20 69 6e 64 65 78 69 6e | - saves| indexin|
|00000310| 67 0d 09 09 5c 09 09 73 | 74 65 70 20 69 66 20 61 |g...\..s|tep if a|
|00000320| 64 64 72 20 69 73 20 6b | 6e 6f 77 6e 2e 0d 09 69 |ddr is k|nown...i|
|00000330| 6e 6c 69 6e 65 7b 20 77 | 40 78 7d 20 20 3b 6d 0d |nline{ w|@x}  ;m.|
|00000340| 0d 3b 63 6c 61 73 73 0d | 0d 0d 3a 63 6c 61 73 73 |.;class.|..:class|
|00000350| 09 57 4f 52 44 43 4f 4c | 20 20 73 75 70 65 72 7b |.WORDCOL|  super{|
|00000360| 20 28 63 6f 6c 29 20 77 | 41 72 72 61 79 20 7d 0d | (col) w|Array }.|
|00000370| 3b 63 6c 61 73 73 09 09 | 09 09 09 5c 20 59 65 70 |;class..|...\ Yep|
|00000380| 2c 20 74 68 61 74 27 73 | 20 61 6c 6c 2c 20 66 6f |, that's| all, fo|
|00000390| 6c 6b 73 21 21 0d 0d 0d | 3a 63 6c 61 73 73 09 42 |lks!!...|:class.B|
|000003a0| 41 52 52 41 59 20 20 73 | 75 70 65 72 7b 20 69 6e |ARRAY  s|uper{ in|
|000003b0| 64 65 78 65 64 2d 6f 62 | 6a 20 7d 20 20 31 20 69 |dexed-ob|j }  1 i|
|000003c0| 6e 64 65 78 65 64 0d 0d | 3a 6d 20 20 41 54 3a 09 |ndexed..|:m  AT:.|
|000003d0| 09 5c 20 28 20 69 6e 64 | 65 78 20 2d 2d 20 6e 20 |.\ ( ind|ex -- n |
|000003e0| 29 0d 09 69 6e 6c 69 6e | 65 7b 20 5e 65 6c 65 6d |)..inlin|e{ ^elem|
|000003f0| 20 63 40 7d 20 20 3b 6d | 0d 0d 3a 6d 20 20 54 4f | c@}  ;m|..:m  TO|
|00000400| 3a 09 09 5c 20 28 20 6e | 20 69 6e 64 65 78 20 2d |:..\ ( n| index -|
|00000410| 2d 20 29 0d 09 69 6e 6c | 69 6e 65 7b 20 5e 65 6c |- )..inl|ine{ ^el|
|00000420| 65 6d 20 63 21 7d 20 20 | 3b 6d 0d 0d 0d 3a 6d 20 |em c!}  |;m...:m |
|00000430| 5e 45 4c 45 4d 3a 09 5c | 20 28 20 69 6e 64 65 78 |^ELEM:.\| ( index|
|00000440| 20 2d 2d 20 61 64 64 72 | 20 29 0d 09 69 6e 6c 69 | -- addr| )..inli|
|00000450| 6e 65 7b 20 5e 65 6c 65 | 6d 7d 20 20 3b 6d 0d 0d |ne{ ^ele|m}  ;m..|
|00000460| 3a 6d 20 46 49 4c 4c 3a | 09 5c 20 28 20 76 61 6c |:m FILL:|.\ ( val|
|00000470| 75 65 20 2d 2d 20 29 20 | 20 46 69 6c 6c 73 20 61 |ue -- ) | Fills a|
|00000480| 6c 6c 20 65 6c 65 6d 65 | 6e 74 73 20 77 69 74 68 |ll eleme|nts with|
|00000490| 20 76 61 6c 75 65 2e 0d | 09 69 64 78 62 61 73 65 | value..|.idxbase|
|000004a0| 20 20 6c 69 6d 69 74 20 | 20 62 6f 75 6e 64 73 0d |  limit | bounds.|
|000004b0| 09 3f 44 4f 20 20 64 75 | 70 20 20 69 20 63 21 20 |.?DO  du|p  i c! |
|000004c0| 20 4c 4f 4f 50 20 20 64 | 72 6f 70 20 20 3b 6d 0d | LOOP  d|rop  ;m.|
|000004d0| 0d 3a 6d 20 57 49 44 54 | 48 3a 09 31 20 20 3b 6d |.:m WIDT|H:.1  ;m|
|000004e0| 09 09 5c 20 46 61 73 74 | 65 72 20 74 68 61 6e 20 |..\ Fast|er than |
|000004f0| 74 68 65 20 64 65 66 61 | 75 6c 74 20 69 6e 20 4f |the defa|ult in O|
|00000500| 62 6a 65 63 74 0d 0d 3a | 6d 20 47 45 54 45 4c 45 |bject..:|m GETELE|
|00000510| 4d 3a 09 5c 20 28 20 61 | 64 64 72 20 2d 2d 20 6e |M:.\ ( a|ddr -- n|
|00000520| 20 29 20 20 46 65 74 63 | 68 65 73 20 6f 6e 65 20 | )  Fetc|hes one |
|00000530| 65 6c 65 6d 65 6e 74 20 | 61 74 20 61 64 64 72 0d |element |at addr.|
|00000540| 09 69 6e 6c 69 6e 65 7b | 20 63 40 78 7d 20 20 3b |.inline{| c@x}  ;|
|00000550| 6d 0d 0d 3b 63 6c 61 73 | 73 0d 0d 0d 3a 63 6c 61 |m..;clas|s...:cla|
|00000560| 73 73 09 42 59 54 45 43 | 4f 4c 20 20 73 75 70 65 |ss.BYTEC|OL  supe|
|00000570| 72 7b 20 28 63 6f 6c 29 | 20 62 41 72 72 61 79 20 |r{ (col)| bArray |
|00000580| 7d 0d 3b 63 6c 61 73 73 | 0d 0d 0d 0d 3a 63 6c 61 |}.;class|....:cla|
|00000590| 73 73 09 48 41 4e 44 4c | 45 41 52 52 41 59 20 20 |ss.HANDL|EARRAY  |
|000005a0| 73 75 70 65 72 7b 20 6f | 62 6a 48 61 6e 64 6c 65 |super{ o|bjHandle|
|000005b0| 20 20 61 72 72 61 79 20 | 20 6f 62 6a 5f 61 72 72 |  array | obj_arr|
|000005c0| 61 79 20 7d 0d 0d 72 65 | 63 6f 72 64 0d 7b 09 69 |ay }..re|cord.{.i|
|000005d0| 6e 74 09 73 69 7a 65 20 | 20 7d 0d 0d 3a 6d 20 53 |nt.size | }..:m S|
|000005e0| 49 5a 45 3a 09 09 67 65 | 74 3a 20 73 69 7a 65 20 |IZE:..ge|t: size |
|000005f0| 20 3b 6d 0d 3a 6d 20 53 | 45 54 53 49 5a 45 3a 09 | ;m.:m S|ETSIZE:.|
|00000600| 09 70 75 74 3a 20 73 69 | 7a 65 20 20 3b 6d 0d 0d |.put: si|ze  ;m..|
|00000610| 3a 6d 20 52 45 4c 45 41 | 53 45 3a 0d 09 67 65 74 |:m RELEA|SE:..get|
|00000620| 3a 20 73 69 7a 65 20 20 | 30 20 20 3f 44 4f 0d 09 |: size  |0  ?DO..|
|00000630| 09 69 20 73 65 6c 65 63 | 74 3a 20 73 65 6c 66 20 |.i selec|t: self |
|00000640| 20 72 65 6c 65 61 73 65 | 4f 62 6a 3a 20 73 65 6c | release|Obj: sel|
|00000650| 66 0d 09 4c 4f 4f 50 20 | 20 3b 6d 0d 0d 3a 6d 20 |f..LOOP | ;m..:m |
|00000660| 50 55 53 48 3a 09 09 5c | 20 28 20 68 64 6c 20 2d |PUSH:..\| ( hdl -|
|00000670| 2d 20 29 0d 09 67 65 74 | 3a 20 73 69 7a 65 20 20 |- )..get|: size  |
|00000680| 6c 69 6d 69 74 20 20 3e | 3d 20 20 3f 65 72 72 6f |limit  >|=  ?erro|
|00000690| 72 20 31 33 37 0d 09 67 | 65 74 3a 20 73 69 7a 65 |r 137..g|et: size|
|000006a0| 20 20 73 65 6c 65 63 74 | 3a 20 73 65 6c 66 20 20 |  select|: self  |
|000006b0| 31 20 2b 3a 20 73 69 7a | 65 0d 09 70 75 74 3a 20 |1 +: siz|e..put: |
|000006c0| 73 75 70 65 72 20 20 3b | 6d 0d 0d 70 72 69 76 61 |super  ;|m..priva|
|000006d0| 74 65 0d 3a 6d 20 28 54 | 4f 50 29 3a 0d 09 67 65 |te.:m (T|OP):..ge|
|000006e0| 74 3a 20 73 69 7a 65 20 | 20 64 75 70 0d 09 49 46 |t: size | dup..IF|
|000006f0| 09 09 31 2d 20 20 73 65 | 6c 65 63 74 3a 20 73 65 |..1-  se|lect: se|
|00000700| 6c 66 0d 09 45 4c 53 45 | 09 64 72 6f 70 20 20 63 |lf..ELSE|.drop  c|
|00000710| 6c 65 61 72 3a 20 63 75 | 72 72 65 6e 74 0d 09 54 |lear: cu|rrent..T|
|00000720| 48 45 4e 20 20 3b 6d 0d | 70 75 62 6c 69 63 0d 0d |HEN  ;m.|public..|
|00000730| 3a 6d 20 54 4f 50 3a 0d | 09 67 65 74 3a 20 73 69 |:m TOP:.|.get: si|
|00000740| 7a 65 20 20 30 3d 20 3f | 65 72 72 6f 72 20 31 33 |ze  0= ?|error 13|
|00000750| 36 20 20 28 74 6f 70 29 | 3a 20 73 65 6c 66 20 20 |6  (top)|: self  |
|00000760| 3b 6d 0d 0d 3a 6d 20 44 | 52 4f 50 3a 0d 09 67 65 |;m..:m D|ROP:..ge|
|00000770| 74 3a 20 73 69 7a 65 20 | 20 64 75 70 20 20 30 3d |t: size | dup  0=|
|00000780| 20 3f 65 72 72 6f 72 20 | 31 33 36 0d 09 31 2d 20 | ?error |136..1- |
|00000790| 20 73 65 6c 65 63 74 3a | 20 73 65 6c 66 20 20 72 | select:| self  r|
|000007a0| 65 6c 65 61 73 65 4f 62 | 6a 3a 20 73 65 6c 66 0d |eleaseOb|j: self.|
|000007b0| 09 31 20 2d 3a 20 73 69 | 7a 65 20 20 28 74 6f 70 |.1 -: si|ze  (top|
|000007c0| 29 3a 20 73 65 6c 66 20 | 20 3b 6d 0d 0d 3a 6d 20 |): self | ;m..:m |
|000007d0| 50 55 53 48 4e 45 57 4f | 42 4a 3a 0d 09 30 20 70 |PUSHNEWO|BJ:..0 p|
|000007e0| 75 73 68 3a 20 73 65 6c | 66 20 20 6e 65 77 4f 62 |ush: sel|f  newOb|
|000007f0| 6a 3a 20 73 65 6c 66 20 | 20 3b 6d 0d 0d 3a 6d 20 |j: self | ;m..:m |
|00000800| 43 4c 45 41 52 58 3a 09 | 6e 69 6c 48 20 20 66 69 |CLEARX:.|nilH  fi|
|00000810| 6c 6c 3a 20 73 65 6c 66 | 20 20 3b 6d 0d 0d 3a 6d |ll: self|  ;m..:m|
|00000820| 20 20 43 4c 41 53 53 49 | 4e 49 54 3a 09 63 6c 65 |  CLASSI|NIT:.cle|
|00000830| 61 72 58 3a 20 73 65 6c | 66 20 20 63 6c 65 61 72 |arX: sel|f  clear|
|00000840| 3a 20 73 65 6c 66 20 20 | 3b 6d 0d 0d 3b 63 6c 61 |: self  |;m..;cla|
|00000850| 73 73 0d 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |ss......|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 42 | 00 00 00 42 00 00 00 3b |.......B|...B...;|
|00000890| 37 49 4e 49 63 64 65 76 | 01 00 00 00 00 00 00 00 |7INIcdev|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 07 53 74 72 75 63 74 31 | 02 00 00 00 50 61 72 74 |.Struct1|....Part|
|000008c0| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 01 81 d9 |SIT!....|........|
|000008d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 b3 66 c2 71 00 00 | 00 00 00 00 01 7d 00 00 |...f.q..|.....}..|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 1d 25 01 54 43 |........|....%.TC|
|00000910| 73 31 41 50 50 4c 05 00 | 00 00 00 00 00 00 00 00 |s1APPL..|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 0e 25 01 | 65 74 32 30 61 64 65 76 |......%.|et20adev|
|00000940| 04 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 1b |........|........|
|00000960| 25 01 74 69 6d 65 63 64 | 65 76 05 00 00 00 00 00 |%.timecd|ev......|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 00 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...>....|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 05 0b |........|........|
|000009b0| 00 00 05 0b 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 01 00 00 00 | 01 42 00 00 00 42 00 00 |........|.B...B..|
|000009d0| 00 3b 02 68 31 d8 23 fe | 00 00 00 1c 00 32 00 00 |.;.h1.#.|.....2..|
|000009e0| 4d 49 46 4f 00 00 00 0a | 00 80 00 00 00 00 00 00 |MIFO....|........|
|000009f0| 02 68 3a 80 08 4d 69 73 | 63 49 6e 66 6f 00 00 00 |.h:..Mis|cInfo...|
+--------+-------------------------+-------------------------+--------+--------+